home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
winfo
/
seeya.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
2KB
|
61 lines
VERSION 2.00
Begin Form SeeYa
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "SEE YA!"
ClientHeight = 735
ClientLeft = 3660
ClientTop = 3135
ClientWidth = 2100
ControlBox = 0 'False
Height = 1140
Left = 3600
LinkMode = 1 'Source
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 735
ScaleWidth = 2100
Top = 2790
Width = 2220
Begin Timer Timer1
Interval = 1000
Left = 840
Top = 600
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "SEE YA!"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H0000FFFF&
Height = 495
Left = 0
TabIndex = 0
Top = 120
Width = 2175
End
End
Sub Form_GotFocus ()
AboutBox.Enabled = 0 'Disable AboutBox
End Sub
Sub Form_Load ()
Move (Screen.width - width) \ 2, (Screen.height - height) \ 2 'Center form
End Sub
Sub Timer1_Timer ()
Beep 'Beep!
Unload SeeYa 'Get ride of SeeYa form and reset timer1 after the intervel is over.
AboutBox.Hide 'Hide AboutBox
AboutBox.Enabled = -1 'Enable AboutBox in case it is displayed again
Winfo.Show 'Back to Winfo form
Winfo.Enabled = -1 'Enable Winfo form
End Sub